(normal-top-level-add-subdirs-to-load-path):

Reverse order of subdirs to add.  Don't duplicate the parent dir.

diff --git a/lisp/startup.el b/lisp/startup.el
index 920fe7173777f805931d53acec4e66801522ed13..1f5c63d6993539c0154e5e0f6613b3e4982d4853 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -351,7 +351,7 @@ from being initialized."
              (setq pending (nconc pending
                                   (list (expand-file-name (car contents)))))))
          (setq contents (cdr contents)))))
-    (normal-top-level-add-to-load-path dirs)))
+    (normal-top-level-add-to-load-path (cdr (nreverse dirs)))))
 
 ;; This function is called from the subdirs.el file.
 (defun normal-top-level-add-to-load-path (dirs)